home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_bas / iqb9103 / isherc.bas < prev    next >
BASIC Source File  |  1991-03-07  |  326b  |  18 lines
  1. ' $INCLUDE: 'QB.BI'
  2. DIM Regs AS RegType
  3.  
  4.   Regs.AX = &HEF00
  5.   Regs.DX = &H00FF
  6.   CALL Interrupt (&H10, Regs, Regs)
  7.   DL = Regs.DX MOD 256
  8.  
  9.   SELECT CASE DL
  10.     CASE 0
  11.         Print "MS-HERC is loaded."
  12.     CASE 255
  13.         PRINT "MS-HERC is not loaded."
  14.     CASE ELSE
  15.         PRINT "I am confused. DL = ";DL
  16.   END SELECT
  17.   END
  18.